pl4=0
set colo to w/b
@ 4,1 CLEA TO 23,78
do while pl4=0 .AND. LASTKEY()<>27
   DO BOXT WITH 4,3,"EDIT LOW INVENTORY ITEMS",'N+','BG',.T.,.T.
   DO INVAX
   DO WHILE .NOT. EOF() .AND. LASTKEY()<>27
*      IF ST_ACT_BUY<ST_REFIL .AND. ST_REORDER=.F. .AND. ST_RE_PROP=.F. .AND. LASTKEY()<>27
      IF ST_REORDER=.F. .AND. ST_RE_PROP=.F. .AND. LASTKEY()<>27
         DO INVAR
         DO INVAA1
      ENDIF
*      IF NEXT
         SKIP
*      ENDIF
   ENDDO
ENDDO
SET COLOR TO W+/B,W+/N
IF LASTKEY()<>27
   DO BOXT WITH 20,3,"NO MORE ITEMS BELOW RE-ORDER LEVEL, GO BACK TO PREVIOUS MENU",'GR+','BG',.T.,.T.
   set cons off
   WAIT  ' '
   set cons on
ENDIF
close index
close data
RETURN
